home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vi 88.d64 / pink (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  23KB  |  42 lines
  1. 0 POKE50257,16:POKE198,0:IFPEEK(12288)=255THEN60
  2. 10 POKE53280,0:POKE53281,0:PRINT"[147][159]   ZUM SAVEN JETZT CTRL[146] S[146] DRUECKEN !":PRINT"   SONST SPACE[146] !"
  3. 40 IFPEEK(203)<>60THEN40
  4. 50 IFPEEK(203)=60THEN50
  5. 55 SYS8576:POKE46,73:CLR
  6. 60 POKE50257,20:PRINT"[147]":SYS8192:SI=54272:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24:DIMU$(20):PRINT"[147]"CHR$(14)CHR$(8);:N=14:GOSUB120:GOTO290
  7. 120 FORI=1TON:READU$(I):NEXTI:FORK=1TON:FORJ=1TOLEN(U$(K)):B$=MID$(U$(K),J,1):PRINTB$;:GOSUB150:NEXTJ:PRINT:PRINT:NEXTK:RETURN
  8. 150 IFB$=" "THENRETURN
  9. 160 POKEL,15:POKEA,19:POKEH,0:POKEFH,74:POKEW,33:FORSD=1TO10:NEXTSD:POKEW,32:RETURN:DATA"       [156] [208]AULCHEN'S  [211]CHIEBUNG [146]                              ":DATA" [194]EI DIESEM [211]PIEL MUSST [196]U DIE BEIDEN":DATA" [208]AULCHEN WIEDER ZURUECKSCHIEBEN.      "
  10. 210 DATA" [200]IERZU BEWEGE DEN [195]URSOR AUF DAS      ":DATA" ZU VERSCHIEBENDE [198]ELD UND DRUECKE     ":DATA"  [211][208][193][195][197] [146] ODER  [198][197][213][197][210] [146]. [215]ENN BEIDE ":DATA" [208]AULCHEN WIEDER RICHTIG SIND,KANN NOCH"
  11. 250 DATA" MAL DAS GLEICHE [194]ILD ABGERUFEN WERDEN.":DATA" [218].[194]. FUER MEHRERE [211]PIELER.            ":DATA" [196]IE [212]ASTEN SIND  [193] [146], [218] [146], , [146], . [146] ! ":DATA" ODER [202]OYSTICK [208]ORT 2 .":DATA" [196]AS [205]ISCHEN WIRD MIT  [211][208][193][195][197] [146] GESTARTET"
  12. 286 DATA" UND AUCH WIEDER GESTOPPT.             ":DATA"             [214]IEL [211]PASS!               "
  13. 290 PRINT"           [159] [196]RUECKE [211][208][193][195][197]":WAIT203,64,64:PRINT"[147]"CHR$(142):DIMV(18,3):FORI=0TO18:FORJ=0TO3:READV(I,J):NEXT:NEXT:DATA1,5,1,5,-1,5,1,5,-1,5,1,5,-1,5,-1,5,,,,:DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,
  14. 360 DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,:DATA-5,1,-5,1,-1,-5,1,-5,-1,1,-5,-5,-1,-5,-1,-5:V=53248:FORI=0TO63:READA:POKE896+I,A:NEXT:DATA0,0,0,0,0,0,120,0,60,132,0,66:DATA148,198,89,73,199,38,46,56,232
  15. 430 DATA66,238,132,129,239,2,128,68,2:DATA128,254,2,65,125,4,62,56,248,3:DATA147,128,14,16,252,57,239,27,80:DATA130,4,160,68,2,0,56,0,0,0,0,0:DATA0,0,173:POKEV+29,255:POKE53265,27:DIMA$(15):R$="[157][157][157][157][157][157][157][157][157]"
  16. 520 A$(0)="        B"+R$+"  _^!\#$B"+R$+"JK@LMNOPQ"+R$+"[214][215][216][217][218][219][220][221][255]":A$(0)=A$(0)+R$+"    [178][179]@@E"+R$+"AAAA@[146]DDA[146]F":A$(1)="        B"+R$+"     %&'B"+R$+";<=>?[192][193][194][195]"+R$+"@@@@[223][160][161][162][163]"
  17. 550 A$(1)=A$(1)+R$+"@@@@[180][181][182][183][184]"+R$+"DDDDBCDEF":A$(2)="        B"+R$+" ()*+   B"+R$+"[196][197][198][199][200][201][202][203][204]"+R$+"[164][165][166][167][168]@@@E"+R$:A$(2)=A$(2)+"@[185][186][187][188]@@@E"+R$+"GHIJ[146]DKL[146]DF":A$(3)="        B"+R$+" ,-./GHIB"+R$+"[205][206][207][208][209][210][211][212][213]"+R$+"[169][170][171][172][173][174][175][176][177]"+R$
  18. 590 A$(3)=A$(3)+"@@@[189][190][191]  B"+R$+"DM[146]DDNO[146]AAC":A$(4)="    PQRST[146]"+R$+"      *+,[146]"+R$+"   >?[192][193][194][195][146]"+R$:A$(4)=A$(4)+"  [217][218][219][220][221][255][223][146]"+R$+"   [176][177][178][179][146] B"+R$+"AAAAAAAAC":A$(5)="UVWXYZ[\[146]E"+R$+"-./01[146]@@23[146]"+R$+"[196][197][198][199][200][146]@[201][202][203]"+R$
  19. 640 A$(5)=A$(5)+"[160][161][146]  [162][163][164][146]@E"+R$+"      [180][181][182][146]"+R$+"AAAAAAAAC":A$(6)="@]^_ ![146]]#$[146]"+R$+"45[146]@@6789:[146]"+R$+"[204][205][206][146]@[207][208][209][210][211][146]"+R$:A$(6)=A$(6)+"@@[165][166][167][146]  [168][169][146]"+R$+"[183][184][185][186][146]    B"+R$+"AAAAAAAAC"
  20. 670 A$(7)="%&'()[146]   B"+R$+";<=[146]     B"+R$+"[212][213][214][215][216][146]   B"+R$:A$(7)=A$(7)+"[170][171][172][173][146] [174][175][146] B"+R$+"  [187][188][189][190][146]  B"+R$+"AAAAAAAAC":FORI=0TO7:A$(I+8)="[153]"+A$(I):NEXT:FORI=0TO7:A$(I)="[151]"+A$(I):NEXT
  21. 710 A$(15)="[129]@@@@@@@@E"+R$+"@@@@@@@@E"+R$+"@@@@@@@@E"+R$+"@@@@@@@@E"+R$:A$(15)=A$(15)+"@@@@@@@@E"+R$+"DDDDDDDDF":DIMP$(18):P1$="":P2$="":P$(0)="NN":P$(1)=P$(0)+P1$
  22. 760 P$(2)=P$(1)+P1$:P$(3)=P$(2)+P1$:P$(5)=P$(0)+P2$:P$(6)=P$(5)+P1$:P$(7)=P$(6)+P1$:P$(8)=P$(7)+P1$:P$(10)=P$(5)+P2$:P$(11)=P$(10)+P1$:P$(12)=P$(11)+P1$:P$(13)=P$(12)+P1$:P$(15)=P$(10)+P2$
  23. 870 P$(16)=P$(15)+P1$:P$(17)=P$(16)+P1$:P$(18)=P$(17)+P1$:DIMPS(15):DIMP2(15):DIMS(18):SYS4*4096:FORA=0TO12STEP4:FORI=ATOA+3:PS(I)=I+C:NEXTI:C=C+1:NEXTA
  24. 980 POKE53265,11:POKE53270,PEEK(53270)OR16:PRINTCHR$(147);:POKE53281,1:POKE53282,0:POKE53283,7:PRINTCHR$(14):POKE53272,29:FORI=0TO15:PRINT""P$(PS(I))A$(I):NEXTI:PRINT"";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"NN";:PRINT"[157][157]";:FORI=1TO24:PRINT"NN[157][157]";:NEXT
  25. 1070 PRINT"[157]BN";:POKE2023,14:POKE56295,8:POKE53281,10:I=0:POKE53265,27:SYS8656:POKE53281,10
  26. 1100 Z=INT(RND(0)*4):Z=PS(15)+V(PS(15),Z):IFPS(I)=ZTHEN1100
  27. 1120 FORI=0TO15:IFPS(I)<>ZTHENNEXT
  28. 1130 PA=PS(I):PS(I)=PS(15):PS(15)=PA:PRINT""P$(PA)A$(15)""P$(PS(I))A$(I):IFPEEK(56320)<>111ANDPEEK(203)<>60THEN1100
  29. 1170 FORI=0TO15:P2(I)=PS(I):S(PS(I))=I:NEXTI
  30. 1190 V=53248:POKE53272,29:POKE2042,14:POKEV+41,6:POKEV+4,54:POKEV+5,68:TI$="000000":Z=0:POKEV+21,4:PRINT""P$(15)"      TUVW:"TI$"    TXY:"Z;:POKE53265,27
  31. 1240 POKE214,24:POKE211,14:SYS58640:PRINTTI$""Z;:SYS8352:IFPEEK(2)THEN1240
  32. 1260 X=PEEK(53252):Y=PEEK(53253):SP=INT((X-16)/72)+INT((Y-36)/48)*5:IFPS(15)<>SP-5ANDPS(15)<>SP+5ANDPS(15)<>SP+1ANDPS(15)<>SP-1THEN1240
  33. 1310 Z=Z+1:H1=PS(15):PS(15)=SP:PS(S(SP))=H1:H2=S(SP):S(SP)=15:S(H1)=H2:PRINTCHR$(19)P$(PS(15))A$(15):PRINTCHR$(19)P$(H1)A$(H2):C=0:FORA=0TO12STEP4:FORI=ATOA+3:IFPS(I)<>I+CTHEN1240
  34. 1410 NEXTI:C=C+1:NEXTA:T=TI:PRINT"[147]":POKE53252,250:POKE53253,75:POKE53270,200:POKE56576,151:POKE53272,21:POKE53281,15:PRINT:PRINT"[129] DU HAST ES GESCHAFFT !!!":PRINT:PRINT" DU BRAUCHTEST"INT(T/60)"SEKUNDEN ":PRINT:PRINT" UND"Z"ZUEGE."
  35. 1490 PRINT" NOCHMAL DAS LETZTE PUZZLE ? (L)":PRINT" ODER NEU MISCHEN          ? (M)"
  36. 1510 GETA$:IFA$=""THEN1510
  37. 1520 IFA$="L"THEN1550
  38. 1530 IFA$<>"M"THEN1510
  39. 1540 POKEV+21,0:GOTO980
  40. 1550 POKE53265,11:POKE53280,0:POKE53281,10:POKE56325,64:PRINT"[147]":POKE53282,0:POKE53283,7:PRINTCHR$(14):FORI=0TO15:PS(I)=P2(I):S(PS(I))=I:NEXTI:POKE53272,29:POKE53270,216:FORI=0TO15:PRINT""P$(PS(I))A$(I):NEXTI:PRINT"";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"NN";
  41. 1670 PRINT"[157][157]";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"[157]BN";:POKE2023,14:POKE56295,8:GOTO1190
  42.